Public Partial Class FrmListarDetalleRemitoServicio
    Inherits System.Web.UI.Page
    Public DetalleRemito As CapaDeNegocios.nDetalleRemitoServicios = New CapaDeNegocios.nDetalleRemitoServicios
    Public Remito As CapaDeNegocios.nRemitoServicios = New CapaDeNegocios.nRemitoServicios
    Dim IDRemito As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        If Not Page.IsPostBack Then
            IDRemito = Request.QueryString("IDRemito")
            If IDRemito <> "" Then
                LlenarCuerpo()
            End If

        End If
    End Sub
    Sub LlenarCuerpo()
        Dim dts As DataSet = Remito.BuscarFiltrado(IDRemito, "", "", "", "", "", "", "", "")
        If dts.Tables(0).Rows.Count > 0 Then
            TxtDetalle.Text = dts.Tables(0).Rows(0)("Detalle").ToString()
            GridDetalleRemito.DataSource = DetalleRemito.Buscar(0, 0, 0, CInt(IDRemito), 0)
            GridDetalleRemito.DataBind()
        End If
    End Sub

End Class